AOL File Library: 9,300 to 9,399/9300.zip/AOLDLs/Helper Apps (MAC)/HELPER_ URL Runner 3.0/URL Runner FMP3.sit/URL Runner FMP3/Reference Scripts/Insert URL from Explorer.tx

Text File | 1996-09-25 | 430b | 14 lines

if (is application running "Internet Explorer 2.1") then
    tell application "Internet Explorer 2.1"
        set Earl to GetWindowInfo -1 as list
    end tell
    set NewEarl to item 1 of Earl as string
    set NewWinInfo to item 2 of Earl as string
    tell application "FileMaker Pro"
        set cell "Address" of current record to NewEarl as string
        set cell "Site Name" of current record to NewWinInfo as string
        activate
    end tell
else
    quit
end if